home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / progDH15.11 < prev    next >
Encoding:
Text File  |  1995-06-29  |  434 b   |  23 lines
  1. #
  2. # Dan Hellers program 15.11, page 512
  3. xtAppInitialize -class Program
  4.  
  5. xmRowColumn .rowcol managed -orientation horizontal
  6. xmLabel .rowcol.label managed -labelString "Enter Text:"
  7. xmText .rowcol.text managed
  8.  
  9. .rowcol.text modifyVerifyCallback {allcaps %ptr %length}
  10.  
  11. proc allcaps {ptr length} {
  12.   upvar 1 $ptr p
  13.   upvar 1 $length l
  14.  
  15.   if {$l == 0} return
  16.   set lower [string tolower $p]
  17.   set p $lower
  18. }
  19.  
  20. . realizeWidget
  21.  
  22. . mainLoop
  23.